Close all

Select 1
Use Paciente

Select 2
Use \medsd5\Med001 

scan all

     Scatter Memvar

     m.Codigo     = val(m.Codpac)
     m.Endereco   = m.Ender
     m.Prontuario = m.Proconv
     m.Profissao  = m.Campo2
     m.Fone       = m.Campo6
     m.Trabalho   = m.Campo7
     m.Cpf        = m.Campo8
     m.Associado  = m.Campo9
     m.Rg_Assoc   = m.Campo10
     m.Responsave = m.Campo11
     m.Rg_Respon  = m.Campo12

     insert into paciente from Memvar


endscan
